home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / new / comm / bbs / 4d-bbsdemo / 4d-bbs install next >
Text File  |  1993-12-30  |  10KB  |  324 lines
  1. ; This script qinstalls 4D-BBS V2.8x+ from the factory disk or archive.
  2. ; "4D-BBS_Install:" should either be the name of the disk containing
  3. ; the archive, or you should assign "4D-BBS_Install:" to the directory 
  4. ; where you unarchived 4D-BBS.
  5.  
  6. ; This script is Copyright © 1993 by CornerStone Software.  If you
  7. ; change anything in this script DO NOT redistribute the script. 
  8. ; Please contact CornerStone Software if you have any problems with
  9. ; this script.
  10.  
  11. ; The following ToolTypes should be set for the icon:
  12. ; APPNAME=4D-BBS
  13. ; SCRIPT=4D-BBS_Install
  14. ; PRETEND=FALSE ?
  15. ; LOGFILE=Ram:4DInstall.Log
  16.  
  17.  
  18. (welcome "Welcome to " @appname " Installation!\n")
  19.  
  20. (complete 0)
  21.  
  22. (set InstSrc    "4D-BBS_Install:"    ; Install From path
  23.     Text        "Text"
  24.     BBS        "BBS"
  25.     Menu        "Menu"
  26.     Users    "Users"
  27.     Boards    "Boards"
  28.     Files1    "Files"
  29.     Doors    "Doors"
  30.     Docs        "Docs"
  31.     Execs    "C"
  32.     )
  33.  
  34.  
  35. (transcript "Starting 4D-BBS Installation")
  36.  
  37. (set DestDir (if (exists "4D-BBS:" (noreq))
  38.               (expandpath "4D-BBS:")
  39.                (@default-dest)))
  40.  
  41. (set help-dest (cat "This is where you can specify the location where "
  42.             @app-name " will install it's directories and files."))
  43.  
  44. (set @default-dest 
  45.      (askdir
  46.         (prompt ("Select where to create %s' main directory:" @app-name))
  47.          (help help-dest)
  48.          (newpath)
  49.          (default DestDir)))
  50.  
  51. (complete 2)
  52. (set @default-dest (tackon @default-dest "4D-BBS"))
  53.  
  54. (if (NOT (exists @default-dest))
  55.     (makedir @default-dest
  56.          (infos)))
  57.  
  58. (complete 4)
  59. (if (NOT (exists (tackon @default-dest BBS)))
  60.     (makedir (tackon @default-dest BBS)))
  61.  
  62. (complete 5)
  63. (if (NOT (exists (tackon @default-dest Text)))
  64.     (makedir (tackon @default-dest Text)))
  65.  
  66. (complete 6)
  67. (if (NOT (exists (tackon @default-dest Menu)))
  68.     (makedir (tackon @default-dest Menu)))
  69.  
  70. (complete 7)
  71. (if (NOT (exists (tackon @default-dest Execs)))
  72.     (makedir (tackon @default-dest Execs)))
  73.  
  74. (complete 8)
  75. (if (NOT (exists (tackon @default-dest Docs)))
  76.     (makedir (tackon @default-dest Docs)))
  77.  
  78. (complete 9)
  79. (if (NOT (exists (tackon @default-dest Users)))
  80.     (makedir (tackon @default-dest Users)))
  81.  
  82. (complete 10)
  83. (set help-dest (cat "This is where you can specify the directory where "
  84.             @app-name " will install it's Message Files."))
  85.  
  86. (set BoardsDir 
  87.      (askdir
  88.         (prompt "Select directory to store message files:" )
  89.          (help help-dest)
  90.          (newpath)
  91.          (default (tackon @default-dest Boards))))
  92.  
  93. (if (NOT (exists (tackon @default-dest Boards)))
  94.     (makedir (tackon @default-dest Boards)))
  95.  
  96. (complete 12)
  97. (set help-dest (cat "This is where you can specify the directory where "
  98.             @app-name " will install it's Files for Transfer sections."))
  99.  
  100. (set Files1Dir 
  101.      (askdir
  102.         (prompt "Select directory to store file transfers:")
  103.          (help help-dest)
  104.          (newpath)
  105.          (default (tackon @default-dest Files1))))
  106.  
  107. (if (NOT (exists (tackon @default-dest Files1)))
  108.     (makedir (tackon @default-dest Files1)))
  109.  
  110. (complete 14)
  111. (set help-dest (cat "This is where you can specify the directory where "
  112.             @app-name " will install it's Doors and External programs."))
  113.  
  114. (set DoorsDir 
  115.      (askdir
  116.         (prompt "Select directory to store external doors:")
  117.          (help help-dest)
  118.          (newpath)
  119.          (default (tackon @default-dest Doors))))
  120.  
  121. (if (NOT (exists (tackon @default-dest Doors)))
  122.     (makedir (tackon @default-dest Doors)))
  123.  
  124. (complete 16)
  125. (if (= (exists "Envarc:4D-BBS" (noreq)) 1))
  126.     (rename "Envarc:4D-BBS" "Envarc:4D-BBS.Old") ;What would this be?
  127.  
  128. (if (NOT (exists "Envarc:4D-BBS"))
  129.     (makedir "Envarc:4D-BBS"))
  130.  
  131. (complete 18)
  132. (textfile (dest "Envarc:4D-BBS/Config")    (append "S:4D.Config" ))
  133.  
  134. (textfile (dest "Envarc:4D-BBS/BBS"   )    (append (tackon @default-dest BBS      )))
  135. (textfile (dest "Envarc:4D-BBS/Text"  )    (append (tackon @default-dest Text     )))
  136. (textfile (dest "Envarc:4D-BBS/Menu"  )    (append (tackon @default-dest Menu     )))
  137. (textfile (dest "Envarc:4D-BBS/Users" )    (append (tackon @default-dest Users    )))
  138. (textfile (dest "Envarc:4D-BBS/Doors" )    (append DoorsDir ))
  139.  
  140. (if (NOT (exists "Env:4D-BBS"))
  141.     (makedir "Env:4D-BBS"))
  142. (copyfiles (source "Envarc:4D-BBS") (dest "Env:4D-BBS" ) (all) )
  143.  
  144. (complete 20)
  145. (copyfiles (prompt "Copying BBS Files...")
  146.          (source (tackon InstSrc BBS))
  147.          (dest (tackon @default-dest BBS))
  148.          (all))
  149.  
  150. (complete 24)
  151. (copyfiles (prompt "Copying Text Files...")
  152.          (source (tackon InstSrc Text))
  153.          (dest (tackon @default-dest Text))
  154.          (all))
  155.  
  156. (complete 28)
  157. (copyfiles (prompt "Copying Menu Files...")
  158.          (source (tackon InstSrc Menu))
  159.          (dest (tackon @default-dest Menu))
  160.          (all))
  161.  
  162. (complete 32)
  163. (copyfiles (prompt "Copying User Files...")
  164.          (source (tackon InstSrc Users))
  165.          (dest (tackon @default-dest Users))
  166.          (all))
  167.  
  168. (complete 36)
  169. (copyfiles (prompt "Copying Transfer Files...")
  170.          (source (tackon InstSrc Files1))
  171.          (dest Files1Dir)
  172.          (all))
  173.  
  174. (complete 40)
  175. (copyfiles (prompt "Copying Message Files...")
  176.          (source (tackon InstSrc Boards))
  177.          (dest BoardsDir)
  178.          (all))
  179.  
  180. (complete 44)
  181. (copyfiles (prompt "Copying Doors Files...")
  182.          (source (tackon InstSrc Doors))
  183.          (dest DoorsDir)
  184.          (all))
  185.  
  186. (complete 48)
  187. (copyfiles (prompt "Copying Fonts to Fonts: directory")
  188.          (source (tackon InstSrc "Fonts"))
  189.          (dest "Fonts:")
  190.          (all))
  191.  
  192. (complete 52)
  193. (copyfiles (prompt "Copying Config File to S: directory")
  194.          (source (tackon InstSrc "S"))
  195.          (dest "S:")
  196.          (all))
  197.  
  198. (complete 56)
  199. (copyfiles (prompt "Copying Executable Files...")
  200.          (source (tackon InstSrc Execs))
  201.          (dest (tackon @default-dest Execs))
  202.          (all))
  203.  
  204. (complete 60)
  205. (if (askbool
  206.     (prompt (cat "Are you using a high speed modem which will require 4D-BBS "
  207.            "to lock the serial port at a specific baud rate the entire "
  208.            "time in which the BBS is running?"))
  209.     (help "High speed modems normally require a constant serial rate "
  210.                  "between the computer and the modem, irrelevent of the "
  211.                  "carrier rate between the two modems.  This speed should "
  212.                  "be ATLEAST greater than the highest carrier rate your "
  213.                  "modem supports.  See your modem for the recommeneded rate."))
  214.  
  215.      (set lockbaud (askchoice
  216.               (choices "9600" "19200" "38400" "57600" "76800" "115200")
  217.                (prompt  "Please select a baud rate out of the following list, "
  218.                      "in which the BBS should lock the serial rate at.")
  219.               (default 1)
  220.               (help "High speed modems normally require a constant serial rate "
  221.                      "between the computer and the modem, irrelevent of the "
  222.                      "carrier rate between the two modems.  This speed should "
  223.                      "be ATLEAST greater than the highest carrier rate your "
  224.                      "modem supports.  See your modem for the recommeneded rate.")
  225.                 )) ; end of set lockbaud askchoice
  226.     (set(lockbaud, -1)))
  227.  
  228. (complete 65)
  229. (if (= lockbaud -1)
  230.     (set lbstring "")
  231.     (if (= lockbaud 0)
  232.         (set lbstring "/b9600")
  233.         (if (= lockbaud 1)
  234.             (set lbstring "/b19200")
  235.             (if (= lockbaud 2)
  236.                 (set lbstring "/b38400")
  237.                 (if (= lockbaud 3)
  238.                     (set lbstring "/b57600")
  239.                     (if (= lockbaud 4)
  240.                         (set lbstring "/b76800")
  241.                         (if (= lockbaud 5)
  242.                             (set lbstring "/b115200"))))))))
  243.  
  244.  
  245. (copyfiles (prompt "Creating StartBBS File...")
  246.          (source (tackon InstSrc "StartBBS.Info"))
  247.          (dest @default-dest)
  248.          )
  249.  
  250. (textfile (dest (tackon @default-dest "StartBBS"))                        
  251.         (append ("Path %s Add\n" (tackon @default-dest Execs)))
  252.         (append "Stack 16384\n")
  253.         (append ("Run >NIL: <NIL: %s/4D-BBS %s\n" (tackon @default-dest Execs) lbstring))
  254.         )
  255.         
  256. (complete 70)
  257. (message  "The Configuration editor will now be run for you to customize "
  258.         "the BBS.  Please refer to the manual if you have any questions "
  259.         "about the configuration editor")
  260.  
  261. (set @execute-dir Execs)
  262. (run ("NewShell From %ss/CFG_ED-Startup CON:2/10/636/180/CFG_ED" InstSrc))
  263.  
  264. (complete 75)
  265. (if (askbool
  266.         (prompt "Would you like to Setup the Message Bases Now?")
  267.         (help (cat "This will run the MB_ED program, and allow you to customize "
  268.                 "the default message section configurations of the BBS"))
  269.         (choices "Setup" "Skip"))
  270.     (run ("NewShell From %ss/MB_ED-Startup CON:2/10/636/180/MB_ED" InstSrc))
  271.     (message  "You will need to run the Message Base Editor (MB_ED) in "
  272.             "order to customize the message base sections.")
  273.     )
  274.  
  275. (complete 80)
  276. (if (askbool 
  277.         (prompt "Would yo